home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / pgm starter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  51 lines
  1. 1 if a=0 then a=1:load "pgm",8,1
  2. 2 poke 55,255:poke 56,131:clr
  3. 3 ba=33792:rem base address
  4. 4 dp=ba+3:rem de-activate pgm
  5. 5 sa=ba+6:rem set address
  6. 6 bs=ba+9:rem bsave
  7. 7 bl=ba+12:rem bload
  8. 8 ds=ba+15:rem dos commands
  9. 9 fm=ba+18:rem fill memory
  10. 10 xf=ba+21:rem xfer memory
  11. 11 ho=ba+24:rem hires on
  12. 12 hf=ba+27:rem hires off
  13. 13 mo=ba+30:rem multicolor on
  14. 14 mf=ba+33:rem multicolor off
  15. 15 ce=ba+36:rem 80 column char driver
  16. 16 cd=ba+39:rem char driver
  17. 17 dc=ba+42:rem data compress
  18. 18 uc=ba+45:rem uncompress data
  19. 19 cw=ba+48:rem copy window
  20. 20 rw=ba+51:rem restore window
  21. 21 pl=ba+54:rem plot a point
  22. 22 up=ba+57:rem unplot a point
  23. 23 dr=ba+60:rem draw a line
  24. 24 ud=ba+63:rem undraw a line
  25. 25 bf=ba+66:rem bitmap fill
  26. 26 sb=ba+69:rem split border
  27. 27 br=ba+72:rem 3d bar
  28. 28 se=ba+75:rem eight sprite mode
  29. 29 fs=ba+78:rem fourteen sprite mode
  30. 30 so=ba+81:rem sprite on
  31. 31 sd=ba+84:rem sprite define
  32. 32 sp=ba+87:rem sprite plot
  33. 33 sr=ba+90:rem sprite reflect
  34. 34 rs=ba+93:rem sprite reverse
  35. 35 sx=ba+96:rem sprite xfer
  36. 36 an=ba+99:rem animate sprite
  37. 37 ca=ba+102:rem cease animate
  38. 38 jo=ba+105:rem joystick on
  39. 39 jf=ba+108:rem joystick off
  40. 40 wc=ba+111:rem color window
  41. 41 rw=ba+114:rem reverse window
  42. 42 fw=ba+117:rem fill window
  43. 43 rd=ba+120:rem dir reader
  44. 44 sys sa,57344,52224:rem set address
  45. 45 sys ba:rem activate pgm
  46. 46 sys ho:rem hires on
  47. 47 rem
  48. 48 rem
  49. 49 rem program begins here
  50. 1000 sys hf:sys dp:rem hires+pgm off
  51.